home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / basic3 / pro5 / colflow.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-07-08  |  573 b   |  28 lines
  1. 10  DIM A(11) : DIM B(11) : DIM A2 (11) : DIM B2 (11)
  2. 20  SCREEN 1,1
  3. 30  COLOR 9,1
  4. 40  KEY OFF
  5. 50  VIEW (1,1)-(300,160),3,1
  6. 60  FOR OUTER = 1 TO 10
  7. 70  FOR CT = 1  TO 72
  8. 80    A$ = "U3"
  9. 90    DRAW "TA" + STR$((5*CT  + 36*OUTER) MOD 360 )
  10. 100    DRAW A$
  11. 110  NEXT CT
  12. 120  NEXT OUTER
  13. 122  FOR CT = 1 TO 10
  14. 123   DRAW "bu30"
  15. 124   A(CT) = POINT (0) : B(CT) = POINT (1): DRAW "bu30"
  16. 125   A2(CT) = POINT (0) : B2(CT) = POINT (1) : DRAW "bd60" : DRAW "ta" + STR$(36*CT)
  17. 126  NEXT CT
  18. 130  FOR CT = 1 TO 10
  19. 140    PSET (A(CT),B(CT))
  20. 150    DRAW "p0,1"
  21. 152    PSET (A2(CT) , B2(CT) ) : DRAW "p2,1"
  22. 160  NEXT CT
  23. 170  LOCATE 24,1
  24. 180  INPUT "PRESS ENTER TO QUIT-";ANS$
  25. 190  SCREEN 0
  26. 200  WIDTH 80
  27. 210  KEY ON
  28.